VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BParametro"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private mvarbUsuarioActivo As bUsuario
Private mvarsFormatoFecha As String
Private mvarlCompania As Collection
Private mvarbCompaniadPorDefecto As bCompania
Private mvarnTipoCambio As Double
Private mvarnIgv As Double
Private mvarnDiaTrabajo As Integer

Friend Property Get nTipoCambio() As Double
    nTipoCambio = mvarnTipoCambio
End Property

Friend Property Let nTipoCambio(ByVal nTipoCambio As Double)
    mvarnTipoCambio = nTipoCambio
End Property

Friend Property Get lCompania() As Collection
    Set lCompania = mvarlCompania
End Property

Friend Property Set lCompania(lCompania As Collection)
    Set mvarlCompania = lCompania
    Dim bCompania As bCompania
    Dim i As Integer
    For i = 1 To mvarlCompania.Count
        Set bCompania = mvarlCompania.Item(i)
        If bCompania.bPorDefecto Then Set mvarbCompaniadPorDefecto = bCompania
    Next
End Property


Friend Property Set bUsuarioActivo(ByVal vData As bUsuario)
    Set mvarbUsuarioActivo = vData
End Property

Friend Property Get bUsuarioActivo() As bUsuario
    Set bUsuarioActivo = mvarbUsuarioActivo
End Property


Friend Property Get sFormatoFecha() As String
    sFormatoFecha = mvarsFormatoFecha
End Property

Friend Property Let sFormatoFecha(ByVal sFormatoFecha As String)
    mvarsFormatoFecha = sFormatoFecha
End Property


Friend Property Get bCompaniadPorDefecto() As bCompania
    Set bCompaniadPorDefecto = mvarbCompaniadPorDefecto
End Property

Friend Property Get nIgv() As Double
    nIgv = mvarnIgv
End Property

Friend Property Let nIgv(ByVal nIgv As Double)
    mvarnIgv = nIgv
End Property

Friend Property Get nDiaTrabajo() As Integer
    nDiaTrabajo = mvarnDiaTrabajo
End Property

Friend Property Let nDiaTrabajo(ByVal nDiaTrabajo As Integer)
    mvarnDiaTrabajo = nDiaTrabajo
End Property

Private Sub Class_Initialize()
    Set mvarlCompania = New Collection
    Set mvarbCompaniadPorDefecto = New bCompania
End Sub

Private Sub Class_Terminate()
    Set mvarlCompania = Nothing
    Set mvarbCompaniadPorDefecto = Nothing
End Sub





